home *** CD-ROM | disk | FTP | other *** search
/ Everything For A Hacker / 19990506-[HACK].iso / HEXEDIT / TCRASM / RGX39012.ZIP / X390IVP.MAC < prev    next >
Text File  |  1997-03-20  |  2KB  |  48 lines
  1. .**********************************************************************
  2. .*                                                                    *
  3. .*   X390IVP.MAC - Tachyon 390 Cross Assembler                        *
  4. .*                 Installation Verification Program                  *
  5. .*                 (C) Copyright 1995-1997, Tachyon Software          *
  6. .*                                                                    *
  7. .**********************************************************************
  8.  
  9. ************** General Register Equates *******************************
  10. R0       Equ   0                       General Register 0
  11. R1       Equ   1                       General Register 1
  12. R2       Equ   2                       General Register 2
  13. R3       Equ   3                       General Register 3
  14. R4       Equ   4                       General Register 4
  15. R5       Equ   5                       General Register 5
  16. R6       Equ   6                       General Register 6
  17. R7       Equ   7                       General Register 7
  18. R8       Equ   8                       General Register 8
  19. R9       Equ   9                       General Register 9
  20. R10      Equ   10                      General Register 10
  21. R11      Equ   11                      General Register 11
  22. R12      Equ   12                      General Register 12
  23. R13      Equ   13                      General Register 13
  24. R14      Equ   14                      General Register 14
  25. R15      Equ   15                      General Register 15
  26. ***********************************************************************
  27.  
  28.          macro
  29. .* This macro is a simple form of the MVS WTO macro.
  30. .* It does not support any of the options of the real WTO
  31. .* macro, but it does verify that the macro assembler works.
  32. &lbl     wto   &msg
  33.          aspace
  34. &len     seta  k'&msg
  35.          aif   (&len lt 3).bad_msg
  36.          aif  ('&msg'(1,1) ne '''' or '&msg'(&len,1) ne '''').bad_msg
  37.  
  38.          cnop  0,4
  39. &lbl     bal   1,WtoSvc&sysndx
  40.          dc    al2(WtoEnd&sysndx-*,0)
  41.          dc    c&msg
  42. WtoEnd&sysndx equ *
  43. WtoSvc&sysndx ds  0h
  44.          svc   35
  45.          mexit
  46. .bad_msg mnote 8,'Message text is invalid or missing.'
  47.          mend
  48.